home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / MUSIC.DIR / 00002_Script_2 < prev    next >
Text File  |  1995-11-16  |  2KB  |  58 lines
  1. on idle
  2.   global gMusicIsPlaying, gQuittingMusic
  3.   
  4.   if gQuittingMusic then exit
  5.   
  6.   if gMusicIsPlaying then
  7.     --    set cursor to [12,13]
  8.     goMusicGo
  9.   else
  10.     --    go frame "Start"
  11.     --    cursor 220
  12.     startMusic
  13.   end if
  14.   --  pass
  15. end idle
  16.  
  17. on exitFrame
  18.   go to the frame
  19. end exitFrame
  20.  
  21. on goMusicGo
  22.   global gMusicDuration, gMusicIsPlaying
  23.   
  24.   if (the movieTime of sprite 48) < gMusicDuration then
  25.     set the movieRate of sprite 48 to 1
  26.   else
  27.     put false into gMusicIsPlaying
  28.   end if  
  29. end goMusicGo
  30.  
  31. on goMusicGoOLD
  32.   global gMusicIsPlaying, gMusicCastNumber, gMusicDuration
  33.   global gThePicts, gLastPictSwitch, gCurrentPictNum, gRandomGuy
  34.   if gRandomGuy = "" then put (360+random(240)) into gRandomGuy
  35.   if (the timer > gLastPictSwitch+gRandomGuy) then
  36.     put empty into gRandomGuy
  37.     go to (the frame) +1--where the palette dissolve out is
  38.     --unloadCast (the number of cast (getAt(gThePicts, gCurrentPictNum)))
  39.     put gCurrentPictNum+1 into gCurrentPictNum
  40.     if gCurrentPictNum > count(gThePicts) then
  41.       put 1 into gCurrentPictNum
  42.     end if
  43.     --preloadCast (the number of cast (getAt(gThePicts, gCurrentPictNum)))
  44.     put label(getAt(gThePicts, gCurrentPictNum)) into it
  45.     set the movieRate of sprite 48 to 1
  46.     go frame it         -- where the palette change occurs
  47.     go frame it+1
  48.     set the movieRate of sprite 48 to 1
  49.     put the timer into gLastPictSwitch
  50.   else
  51.     if (the movieTime of sprite 48) < gMusicDuration then
  52.       set the movieRate of sprite 48 to 1
  53.     else
  54.       put false into gMusicIsPlaying
  55.     end if
  56.   end if
  57. end goMusicGoOLD
  58.